home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / disk / misc / dopus_1541.lha / DOpus-1541 / Install < prev    next >
Text File  |  1995-02-24  |  1KB  |  82 lines
  1. ; 1541-DOPUS install script
  2. ; Date : 22-SEP-95
  3. ; Version 1.0
  4.  
  5. (transcript "Installing 1541-DOPUS...")
  6.  
  7. (welcome "You are about to install 1541-DOPUS on\nyour computer system.")
  8.  
  9. (set @default-dest "rexx:1541-Dopus")
  10. (set name 
  11.     (askdir
  12.         (prompt "Where do you want to install the arexx scripts?\n"
  13.                         "(A drawer will NOT be created there!")
  14.  
  15.         (help
  16.             "The best place is probably the REXX: drawer. If you havn't changed"
  17.             "anything, this will probably be the S/ drawer.\n"
  18.             @askdir-help
  19.         )
  20.         (default @default-dest)
  21.     )
  22. )
  23.  
  24. (set @default-dest name)
  25.  
  26. (copyfiles
  27.     (Prompt "")
  28.     (source "Rexx/Dopus/1541")
  29.     (dest @default-dest )
  30.     (infos)
  31.     (all)
  32. )
  33.  
  34. (if (trap -1 (getenv "1541.prefs"))
  35.     (
  36.         (set utilsdir
  37.             (askdir
  38.                 (prompt
  39.                     "Please locate the UTILS/ drawer inside your A64 directory:"
  40.                 )
  41.                 (help
  42.                     "1541-DOPUS uses the shell commands with the A64 emulator. You should"
  43.                     "where this shell commands are...\n\n"
  44.                     @askstring-help
  45.                 )
  46.                 (default "Work:Emulators/A64/Utils")
  47.             )
  48.         )
  49.  
  50.  
  51.         (set tempdir
  52.             (askdir
  53.                 (prompt
  54.                     "Where should 1541-DOPUS place it's temporary files:"
  55.                 )
  56.                 (help
  57.                     "T: is the most used place for temporary files...\n\n"
  58.                     @askstring-help
  59.                 )
  60.                 (default "t:")
  61.             )
  62.         )
  63.  
  64.         (textfile
  65.         (dest "ENVARC:1541.prefs")
  66.             (append utilsdir "\n" @default-dest "\n" tempdir)
  67.         )
  68.         (textfile
  69.             (dest "ENV:1541.prefs")
  70.             (append utilsdir "\n" @default-dest "\n" tempdir)
  71.         )
  72.  
  73.     )
  74.  
  75.  
  76.  
  77. )
  78.  
  79.  
  80.  
  81. (exit "See ya later!")
  82.